home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 March & April / rerun-1986-03-04.d64 / runscript params (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  88 lines
  1. 10 rem select default parameters
  2. 40 rem select screen colors
  3. 50 printchr$(147)"0  - black"
  4. 60 print"1  - white"
  5. 70 print"2  - red"
  6. 80 print"3  - cyan"
  7. 90 print"4  - purple"
  8. 100 print"5  - green"
  9. 110 print"6  - blue
  10. 120 [153]"7  - yellow
  11. 130 print"8  - orange
  12. 140 [153]"9  - brown
  13. 150 print"10 - light red
  14. 160 [153]"11 - dark gray
  15. 170 print"12 - medium gray
  16. 180 [153]"13 - light green
  17. 190 print"14 - light blue
  18. 200 [153]"15 - light gray
  19. 220 print
  20. 230 input"default text color0[157][157][157]";colr
  21. 240 poke 6684,colr
  22. 250 input"[145]default screen color3[157][157][157]";colr
  23. 260 poke 6682,colr
  24. 270 input"[145]default border color6[157][157][157]";colr
  25. 280 poke 6683,colr
  26. 290 input"[145]default status line color6[157][157][157]";colr
  27. 300 poke 6685,colr
  28. 330 rem input high memory limit
  29. 340 print : print
  30. 350 input"[147]runscript's highest address53247[157][157][157][157][157][157][157]";adr
  31. 360 adr=adr-256 : poke 6691,(adr/256-int(adr/256))*256 : poke 6692,adr/256
  32. 390 rem select default save device
  33. 400 print : print
  34. 410 print"enter the device number of your main"
  35. 420 print"data storage device."
  36. 430 input"default save device8[157][157][157]";dev : poke 6686,dev
  37. 460 rem input default ascii mode
  38. 470 rem true ascii or commodore ascii
  39. 480 print : print
  40. 490 print"true ascii or commodore (normal) ascii?"
  41. 500 input"select type (true/normal)normal[157][157][157][157][157][157][157][157]";a$
  42. 510 if left$(a$,1)="t" then flag=255 : goto 540
  43. 520 if left$(a$,1)="n" then flag=0 : goto 540
  44. 530 goto 480
  45. 540 poke 6716,flag
  46. 570 rem select line feed or no line feed
  47. 580 print : print
  48. 590 print"should a line feed character be printed after each carriage return ?"
  49. 600 input"(y/n)n[157][157][157]";a$
  50. 610 if left$(a$,1)="y" then flag=255
  51. 620 if left$(a$,1)="n" then flag=0 : goto 640
  52. 630 goto 580
  53. 640 poke 6713,flag
  54. 670 rem input secondary addresses
  55. 680 print : print
  56. 690 print"enter the correct secondary address to"
  57. 700 print"cause the printer to print in "
  58. 710 print"upper/lower case."
  59. 720 input"text secondary address7[157][157][157]";adr
  60. 730 poke 6693,adr
  61. 740 print
  62. 750 print"enter the secondary address to use when"
  63. 760 print"programming the printer with macro"
  64. 770 print"strings."
  65. 780 input"command secondary address7[157][157][157]";adr
  66. 790 poke 6694,adr
  67. 820 rem save runscript ml
  68. 830 printchr$(147);
  69. 850 print"8 - disk"
  70. 860 print"9 - disk"
  71. 870 print
  72. 880 input"save to which device8[157][157][157]";dev
  73. 890 if dev><1 and dev<>8 and dev<>9 then 830
  74. 900 poke 780,0 : poke 781,dev : poke 782,0
  75. 910 sys 65466 : rem setlfs
  76. 930 prog$="runscript"
  77. 940 if dev<>1 then prog$="0:"+prog$
  78. 950 for loop=1 to len(prog$)
  79. 960 poke 849+loop,asc(mid$(prog$,loop,1))
  80. 970 next loop
  81. 990 poke 780,len(prog$) : poke 781,850and255 : poke 782,850/256
  82. 1000 sys 65469 : rem setnam
  83. 1020 adr=12048 : rem end of runscript
  84. 1030 poke 253,4681and255 : poke 254,4681/256
  85. 1040 poke 780,253 : poke 781,adrand255 : poke 782,adr/256
  86. 1050 sys 65496 : rem save
  87. 1080 end
  88.